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: Pascal File Variable (PFV$) field definitions 
: File: PASPFV.REQ, Edit: SBL1001 


eRe EE ERE AAE ARATE AEA eee eee eet 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ye ee WITH THE TERMS OF SUCH Tite AND WITH THE 
R 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 


Author: Steven B. Lionel, 1-April-1981 
1-001 = Original. SBL 1-April-1981 


'¢ 


i The Pascal File Variable (PFV) is a dynamically allocated block whose 
! address is passed to the Run-Time Library to uniquely identify a file. 
Ad are information, see the VAX~11 Language Support Procedures reference 
' Manua 
le 


! PFV structure definition 


FIELD 
PFVSFIELDS = 
SET 


PFVSR_PFV 


PFVSA_BUFFER = (0,0,32.0], ! Address of the user file buffer. 


! 
PFVSV_RELBUF is set, this address is 
' 
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(0,0,0,0), ! Field to address the entire structure. 


If 


! relative to the PFV address, otherwise 


' it is absolute. 


PFVSB_VERSION = [4,0,8,0), 


the symbol PFV$K_CUR_VERSION. 


The version number of the PFV layout. 
The Latest version number is defined by 


Be 


wv 
— 
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PFVSW_FLAGS 


PFVSV_VALID 


PFVSV_DFB 


PFVSV_EOF _DEFINED = 


PF V$V_EOLN 
PF V$V_RELBUF 


PF VSV_RELPFD 


PF V$V_OPEN 
PFV$V_FCB_VALID 


PF V$V_LOCK 


PFVSA_PFD 


PFVSA_FCB 


PFVSL_STATUS 


(4,16,16,0), 


(4,16,1,0), 


(4,17,1,0], 


(4,19,1,0), 
(4,27,1,0), 


(4,28,1,0], 


(4,29,1,0], 
(4,30,1,0], 


(4,31,1,0), 


(8,0,32,0], 


C12,0,32,0), 


(12,0,32,0) 


(4,18,1,0], 
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Status flags which the Run-Time Library 
+ ay BD ears to indicate the current status 
2 e. 


Buffer is valid. If this bit is set 

the remaining ey bits and the file’ ~ 
itself may be rea the compiled code. If 

clear, PAS$LOOK ORHER must be called to make 

the information valid. 


Buffer is defined. If set, the last file 
poeretton resulted in a ‘defined’ file buffer 

by ane Soman ics of Pascal. If clear, the 

file buffer is “‘undefined’’. If PRVSV “EOF DEFINED 
is set, EOF(f) is equivalent to .NOT. PASS$V_DFB 


EOF(f) is a valid test. After some file 

peers tone, EOF(f) is not a valid test to make. 
If this bit is set, EOF(f) is true if and only 
if PASSV _DFB is clear. 


File is at end-of-Line. 


PFVSA_BUFFER address is relative to 
the PFV address. If clear, the address 
is absolute. 


PFVSA_PFD address is relative to the 
PFV address. If clear, the address is 
absolute. 


File is open. 


This bit is set when PFVS$A_FCB contains 
the address of a valid FCB. «If clear, 
PFV$A_FCB contains the condition code 
for the last error to occur on that 


This is the interlock bit used by the Run-Time 
i iprary to prevent recursive 1/0 on the same 
e. 


Address of the Pascal File Descriptor 
(PFD). If PFVSV_RELPFD is set, this | 
is relative to the PFV address, otherwise 
it is absolute. 


Address of the Sune tine Library s interne) ‘ 
File Control Block (FCB) for this file. is 
field must be initially zero! the Rathies” 
Library fills it in when the file is opened. 


FCB 
& PPUSN FcR. PFVSA_FCB. 


If PFV$V_FCB VALID Ts clear, this 
field is"used to store the condition 


-v 
‘> 
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: code of the last error to occur on this 
! file when the file was not open. 


TES; 
LITERAL 
PFVSK_CUR VERSION = 0 ! Current version of PFV 
PFVSK-SIZE = 16; i Size of PFV in bytes 


MACRO 
SPASSPFV_FILE_VARIABLE = BLOCK CPFVSK_SIZE, BYTE] FIELD (PFVSFIELDS) %; 


! End of file PASPFV.REQ 


A 
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